home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / dtype / fontdt1.0.lha / Install FontDT < prev    next >
Text File  |  1995-04-22  |  2KB  |  86 lines
  1. ; Installer script for FontDT
  2. ; $VER: Install FontDT 39.1 (22.4.95)
  3.  
  4. (complete 0)
  5.  
  6. (set @l-dest "LIBS:DataTypes/")
  7. (set @permanent-dest "DEVS:DataTypes/")
  8. (set @default-dest "SYS:Storage/DataTypes/")
  9.  
  10. (set #dt "Libs/DataTypes/font.datatype")
  11. (set #recog "Devs/DataTypes/")
  12.  
  13. ; ***************************************************************************
  14. ; English strings
  15.  
  16. (set #bad-kick
  17.     (cat "You must have AmigaDOS 3.0 or higher to use FontDT!"))
  18.  
  19. (set #welcome
  20.     (cat "\nFontDT installation\n\n\n"
  21.        "This script installs FontDT 1.0\n"
  22.        "on your Amiga.\n\n\n\n"
  23.        "FontDT is\n"
  24.        "Copyright © 1995 Michael Letowski\n"
  25.        "All rights reserved.\n\n"))
  26.  
  27. (set #where-driver
  28.     (cat "Should FontDT be installed permanently?"))
  29.  
  30. (set #where-help
  31.     (cat "\nDataTypes can be installed as permanently enabled"
  32.          " or manually selectable.\n"
  33.        "Pemanently enabled means that the DataType is always"
  34.        " ready for use.\n"
  35.        "Manually Selectable means that the datatype has to be"
  36.        " run before it can be used.\n"))
  37.  
  38. ; ***************************************************************************
  39. ; Install FontDT
  40.  
  41. ; Check AmigaDOS version
  42. (set #version (/ (getversion) 65536))
  43. (if (< #version 39)
  44.     (
  45.         (abort #bad-kick)
  46.     )
  47. )
  48.  
  49. (message #welcome)
  50.  
  51. (welcome)
  52. (set old_level @user-level)
  53.  
  54. (user 2)
  55. (set #perm
  56.     (askbool
  57.         (prompt #where-driver)
  58.         (help #where-help)
  59.         (default 0))
  60. )
  61. (if #perm
  62.     (set @recog-dest @permanent-dest)
  63.     (set @recog-dest @default-dest)
  64. )
  65.  
  66. ; Do copy
  67. (user old_level)
  68.  
  69. ; Copy library
  70. (copylib
  71.     (source #dt)
  72.     (dest @l-dest)
  73. )
  74. (complete 50)
  75.  
  76. ; Copy recog
  77. (copyfiles
  78.     (source #recog)
  79.     (dest @recog-dest)
  80.     (all)
  81. )
  82. (complete 100)
  83.  
  84. (set @default-dest "")
  85. (exit)
  86.